(server-buffer-done): Bury the buffer before

killing it.

diff --git a/lisp/server.el b/lisp/server.el
index e362c8e5607c70f53c590e984227f24fb6c2210f..e4a451c364a9e661544ebe41e260dfe745a3b4ab 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -390,6 +390,7 @@ or nil.  KILLED is t if we killed BUFFER
                           (set-buffer buffer)
                           server-existing-buffer))
                (setq killed t)
+               (bury-buffer buffer)
                (kill-buffer buffer))
              (unless killed
                (if (server-temp-file-p buffer)